home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / math / nrpas13 / rank.pas < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  298b  |  13 lines
  1. PROCEDURE rank(n: integer; indx: gliarray; VAR irank: gliarray);
  2. (* Programs using routine RANK must define type
  3. TYPE
  4.    gliarray = ARRAY [1..np] OF real;
  5. in the main routine, with np >= n.   *)
  6. VAR
  7.    j: integer;
  8. BEGIN
  9.    FOR j := 1 TO n DO BEGIN
  10.       irank[indx[j]] := j
  11.    END
  12. END;
  13.